Fix GUD "Stop" display when running pdb

* lisp/progmodes/gud.el (gud-menu-map): Don't call gdb-show-stop-p
when GUD mode is 'pdb'.  (Bug#27024)

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 8cb912706fd77af166827a8c3781755a2a918fc0..e9ca7eade3653272d4b271b718c60211108467f2 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -157,7 +157,8 @@ Used to gray out relevant toolbar icons.")
                                 (gdb-show-run-p)))
     ([stop]    menu-item "Stop" gud-stop-subjob
                  :visible (or (not (memq gud-minor-mode '(gdbmi pdb)))
-                              (gdb-show-stop-p)))
+                              (and (eq gud-minor-mode 'gdbmi)
+                                    (gdb-show-stop-p))))
     ([until]   menu-item "Continue to selection" gud-until
                   :enable (not gud-running)
                  :visible (and (memq gud-minor-mode '(gdbmi gdb perldb))